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Heapliets - Definitions for Macintosh Assembly Language Memory Manager. 


a8 


Supports multiple heap zones with mixed relocatable and non-relocatable 
storage blocks. 


Reorganized from code designed and written by Bud Tribble, 27-Nov-81, 
and maintained and modified by Angeline Lo, Larry Kenyon, 
and Andy Hertzfeld. 


Moditication History: 

17 Feb 83 LAK added dfitStackSize for defltAppiLimit. 

20 Mar 93 MPH changed memory size constants to support S12 kK byte 
machine; added PtrMask and HandleMask to allow garbage 
in high byte of ptrs or handles passed to memory manager; 
removed "checking" conditional from ChkZone macro. 

29 Mar 63 MPH added purgeFroc and moverelProc entries to zone object. 

10) Jun 63 BFH Removed Definition of Nil, use Nil from GrafTypes. 

17 Jun 63 MPH Removed moveRelFroc from Heap object, inserted spare. 

2i Jun 63 MPH Fut FreeList code under assembly switch: FList. 

18 Jul 83 LAK Removed FreeList stuff completely; removed TLock, TFurge; 

: removed Trap macro and check hook offsets. 

7 d0 Jul 63 LAK Added equates for FurgePtr and AllocFtr. Also added equates 

for Flags byte: FNSelCompct ,FNoRvrAl loc ,FNSel Purse ,FRelAtEnd. 

Added ClearBit equate. 
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; These constants control conditional assembly. 


Checking »Equ G icheck arguments and data structures 
Statistics qu Gj gather statistics on usage 

Robust »Equ o yenables super-robust internal checks 
CounthPs .Equ G yenables counting of master pointers 
EHItFiags sEGU yhecking is on when zone is init’d 

; 

: Constants: 

MinFree »EGU iz qlZ byte minimum. block size 

TagMask »EGU S$C0000000 sMask for the Z-bit Tag Field 

BCOTf Mask »EDU SOF O00000 yMask for the 4 bit Byte Count offset 
BCMask »EQU SOQQFFFFFF idask for the 24 bit Byte Count 
PirMask »EQU SQ0FFFFFF tMask pointer to low 24 bite 

Hand] eMask »EQU SQ0QFFFFFF wMask handle to low 24 bits 

Freetag -EDU #0 ylag for Free block 

NRel Tag sEGU F40000000 ifag for Non-Relocatable block 

Rel Tag »EQU S8O000000 jlag for Relocatable block 

MaxSize 2EOU So00000 iMax data biock size is S1Zk bytes 
MinAddr »EGU $6 jMin legal address 

MaxAdar EEL FBG0GG0 Max jegal address for 312k machine 
MaxMasters »EGU $1000 sRidiculously large allocation chunk size 
afl thasters ERG az jDefault to 32 master pointers 
diltStackSize »EQU $00002000 GBR size for stack 

anStackSize rEQU S00000400 y1K minimum size for stack 

F 

: Block Types : 
tybkMask wEEU 3 yMask for Block type 
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tybkFree 
tybkNRel 
tybkRel 

; 

i Heap Zone 


! 

EkLim 
FurgePtr 
HFstFree 
ZChFree 
62ZFroc 

MAL locCnt 
Flags 
FOnCheck 
FCheck ing 
FGZAl ways 
FNGZResrv 
FNS5el Compct 
FNoRvral foc 
FNSei Purge 
FRel AtEnd 


cntRel 
maxRel 
cntNkel 
maxNRel 
entEmpty 
cntHand] es 
minCBFree 
purgeProc 
sparel 
AllocFtr 
Heapliata 


MinZone 
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Tagec 
Handle 
Bikfiata 


Heap Zone 
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SysZonesize 
AppZonedize 


Structure 


Sau fe 


StartFtr 
LimitFtr 
CHoreMasters 


Black Offsets 
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EG 0 yFree Block 
»EQU i yNon-Rel ocatable 
-EGU 2 :Relocatabls 
iffsets: 
.EQU Oo. jLong, last block in zone 
»EQU 4 jLong, roving purge pointer. 
zEGU 8 jLong, first free handle 
»EQU iz yLong, # of free bytes in zone 
EGU 14 jLong, pointer to grow zone procedure 
»EGU 2G jWord, # of masters to allocate 
.EGU 22 yWord, Flags 
»EGU 0 yTurn Gn Checking 
»EQU i yChecking on 
2EQU 2 Set to i to force user G2 calls in noncrit cases 
-EQU 3 et to i.to prevent GZ reserviem cails 
EGU 4 jUse non-selective compact algorithm when 1. 
»EQU a ion’t use rover allocation scheme when 1. 
»ERU 6 jUse non-selective purge algorithm when 1. 
»ERU 7 jMakeBk packs rels at end of free bk when 1. 
»EGU 24 jWord, # of allocated relocatable blocks 
»ERU 26 yWord, max # of allocated rel. blocks. 
EGU 2 yHord, # of allocated non-rel. blocks. 
«EQU a0 yWord, max # of allocated non-rel. blocks. 
-EGL 32 qWord, # of empty handles 
»EQU a4 jWord, # of total handles 
»EGU dé jLong, min # of bytes free. 
»EGU 4 yLong, pointer to purge warning procedure 
»EGU 44 jLong, unused spare. 
:EQU 45 jLong, roving allocation pointer. 
GU ae yotart of heap zone data 
-Egu Heaplatati4shinFreest+ieedt i tMasters? 
jMinimum size for Applic. Zone 
ER i sLong, Tag and Byte Count tield 
-EGU 4 jLong, handle to current data block 
EGU g sAl] Block Data Starts Here 
Default Sizes 
2EGU $4000 16 KE byte static sysZone size 
»EGU #1800 36 EK byte static applone size 
of InitzZone argument table. 
«EGU 0 gStart address for zone. 
2E GU 4 jLimit address for zone. 
«EGU 3 jNumber of masters to allocate at time. 
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FGrowZone .EGU id iFoints to the growZone procedure. 


Bit offset for system trap special functions 
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5ysO0rCur Zone »EGU ig ; Bit set implies System Zone 
: bit clear implies Current Zone 
ClearBit +EGU 9 ; Bit set means clear allocated memory. 


ANACRO Getz yGet theZone into a register 
MOVE.L  thezZone,21 
.ENDM 
:MACRO SetZ Set theZone with a register’s value 
MOVE.L  Zi,theZzone : 
END 


wacro || Equai 
aif Check ing 


Move.L 21,7 (5F) 
Move.L 42,7 (SF) 
J5R Equal Check 
2endc 

2endi 


macro = Even 


rif Checking 
MOVE .L 41,7 (SP) 
JSR EvenCheck 
2BNGC 

sendm 


sfacro Range 


wif Checking 

MOVE WL 41,7 (SF) 
MOVE JL 42,7 (SF) 
MOVE.L 49,7 (5F) 
J5R RangeCheck 
6endc 


.engm 


